﻿Imports QLBH.GlobalClass
Public Class frmHTCuaHang

    Private Sub btnCHLuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCHLuu.Click
        Dim tenF As String = Me.Name + ".xml"
        GlobalFunction.GhiTenControlToXML(Me, tenF)
        MessageBox.Show("Succsesfull", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class